home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
remote
/
flpro36.zip
/
FLPRO.BAS
next >
Wrap
BASIC Source File
|
1991-07-07
|
718b
|
29 lines
'''
'''
''' FILELIST PRO V3.6
''' (c) Dm Soft Corp , Wang Yumin 1991
'''
''' Structure docs for Remote Access 1.00 (Files.Ra) in BASIC
''' for Turbo / Power BASIC
'''
'''
open "Files.Ra" for random as #1 len=126
field #2,31 as arname$,_ ' String[30]
1 as typ$,_ ' Byte
41 as filepath$,_ ' String[40]
41 as freespace$,_
2 as security$,_ ' Integer
4 as flags$,_ ' Flagtype
2 as privatesec$,_ ' Integer
4 as privateflags$ ' Integer
get #1,1
areaname$ = mid$(arname$,2,asc(arname$))
access$ = cvi(security$)
files.path$ = mid$(filepath$,2,asc(filepath$))
end